home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: New Zealand Amiga Users Group / New Zealand Amiga Users Group Newsdisk v03 (1987-02)(NZAmigaUG).zip / New Zealand Amiga Users Group Newsdisk v03 (1987-02)(NZAmigaUG).adf / BASIC / Bands < prev    next >
Text File  |  1993-12-02  |  565b  |  22 lines

  1. 10    DIM a%(5000):CLS
  2.       PRINT "Drag the Mouse"
  3. 20    GOSUB 1000
  4. 30    GET(x1%,y1%)-(x2%,y2%),a%
  5. 35    x%=MOUSE(1):y%=MOUSE(2):b%=MOUSE(0)
  6. 37    IF b% = 0 GOTO 35
  7. 40    PUT(x%,y%),a%
  8. 50    GOTO 20
  9. 1000  '
  10. 1010  x1%=MOUSE(1):y1%=MOUSE(2):b%=MOUSE(0)
  11. 1020  IF b% = 0 GOTO 1010
  12. 1025  x2% = x1% : y2% = y1%
  13. 1030  x%=MOUSE(1):y%=MOUSE(2):b%=MOUSE(0)
  14. 1035  IF x% = x2% AND y% = y2% GOTO 1030
  15. 1040  LINE(x1%,y1%)-(x2%,y2%),2,b
  16. 1045  x2% = x% : y2% = y%
  17. 1047  LINE(x1%,y1%)-(x2%,y2%),2,b
  18. 1050  IF b% <> 0 GOTO 1030
  19. 1065  LINE(x1%,y1%)-(x2%,y2%),2,b
  20. 1067  
  21. 1070  RETURN
  22.